From: Francesco Potortì <pot@gnu.org>
Date: Tue, 14 May 2002 08:46:00 +0000 (+0000)
Subject: (shell-mode): Use (ring-empty-p rather than (zerop (ring-length.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~57159
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6ba0fd3eb934e5063db7621cb052339abfdb278b;p=emacs.git

(shell-mode): Use (ring-empty-p rather than (zerop (ring-length.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index c93cc77b673..ec52a2f3624 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -415,7 +415,7 @@ buffer."
   (make-local-variable 'list-buffers-directory)
   (setq list-buffers-directory (expand-file-name default-directory))
   ;; shell-dependent assignments.
-  (when (zerop (ring-length comint-input-ring))
+  (when (ring-empty-p comint-input-ring)
     (let ((shell (file-name-nondirectory (car
 		   (process-command (get-buffer-process (current-buffer)))))))
       (setq comint-input-ring-file-name